open(BUFF,"2likelihoods_map.txt") or die "no file found 2likelihoods_map.txt\n";
$line=<BUFF>;
while(<BUFF>)
{
	chomp($_);
	@ar=split(" ",$_);
	if($ar[1]==$ar[4] && $ar[0]==8 && $ar[3]>=126000022 && $ar[3]<= 132999970)
	{
		print "--- $ar[1] $ar[3] $ar[5] $ar[6]";
		for($i=7;$i<@ar;$i++)
		{
			$a1=$ar[$i++];
			$a2=$ar[$i];
			$a3=1-$a1-$a2;
			print " ".$a1." ".$a2." ";
			printf("%.2f", $a3)
		}
		print "\n";
	}
}
